home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSPSTR.for < prev    next >
Text File  |  1991-04-13  |  749b  |  42 lines
  1.     SUBROUTINE GSPSTR(BSTRNG)
  2.         IMPLICIT NONE
  3.     CHARACTER*1 BSTRNG(80)
  4. C
  5. C    THIS SUBROUTINE STROKES OUT THE CHARACTER STRING "BSTRNG" (A BYTE
  6. C    ARRAY WITH 0 AS A TERMINATOR) AT THE CURRENT POSITION.
  7. C
  8.     INCLUDE DIGLIB$KOM:GCVPOS.PRM
  9.     INCLUDE DIGLIB$KOM:GCCOFF.PRM
  10.     INCLUDE DIGLIB$KOM:GCLTYP.PRM
  11.         INTEGER IOLD,ICHAR,IICHAR,NBYTE
  12. C
  13. C    DON'T DRAW CHARACTERS IN LINETYPES
  14. C
  15.     IOLD = ILNTYP
  16.     ILNTYP = 1
  17. C
  18.     NBYTE = 0
  19. 100    NBYTE = NBYTE + 1
  20. C
  21. C    SAVE THE (0,0) POSITION OF THE CHARACTER
  22. C
  23.     XOFF = XVPOS
  24.     YOFF = YVPOS
  25. C
  26. C    GET THE CHARACTER TO STROKE
  27. C
  28.     IICHAR = ICHAR(BSTRNG(NBYTE))
  29.     IF (IICHAR .EQ. 0) GO TO 200
  30. C
  31. C    STROKE THE CHARACTER
  32. C
  33.     CALL GSSTRK(IICHAR)
  34.     GO TO 100
  35. C
  36. C    RETURN LINE TYPE TO THAT OF BEFORE
  37. C
  38. 200    CONTINUE
  39.     ILNTYP = IOLD
  40.     RETURN
  41.     END
  42.